home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinME Scheduled Tasks.xpl < prev    next >
Text File  |  2002-10-29  |  1KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Taskbar"
  5. "UIPATH 2"="System\Scheduled Tasks\Visibility"
  6. "NAME"="Windows ME Scheduled Tasks"
  7. "OSVERSION"="00001"
  8. "VERSION"="1.11"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Enable Scheduled Tasks Icon"
  11. "DESCRIPTION 1"="For Win ME: If this option is checked, the Scheduled Task Icon will appear in the Taskbar."
  12. "AUTHOR"="Ojatex@aol.com"
  13. "CONTACTURL"="http://members.aol.com/ojatex/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  16. "COMMENT 2"="Thanks to CptSiskoX for tip."
  17. "COMMENT 3"="See MSKB article: "How to Enable the Scheduled Tasks Icon in Windows Me" at http://support.microsoft.com/support/kb/articles/q272/9/62.asp for more information."
  18.  
  19.  
  20. sPath="HKLM\Software\Microsoft\Plus!\System Agent\EnableTrayIcon"
  21.  
  22. Sub Plugin_Initialize 
  23.     i=RegReadValue(sPath)
  24.     if i=1 then
  25.        Call SetUIElement(1,true) 
  26.     end if  
  27. End Sub
  28.  
  29. Sub Plugin_CheckData(ElementIndex)
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.     Call RegWriteValue(sPath,1,2) 
  36.  else
  37.     if RegValueExists(sPath) then
  38.        Call RegDeleteValue(sPath)
  39.     end if
  40.  end if
  41.  
  42.  Call Restart()
  43. End Sub
  44.  
  45.  
  46. Sub Plugin_Terminate 
  47. End Sub
  48.  
  49.  
  50.  
  51.